home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / DOMNOS.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.1 KB  |  251 lines
  1. 100 GOTO5670
  2. 110 FORI=1TO11:POKE(827+I),0:NEXT:GOSUB8250:PRINT"LEVEL (1-6)?"
  3. 130 GETK$:IFK$=""THEN130
  4. 140 IFK$<"1"ORK$>"6"THEN130
  5. 150 LE=VAL(K$):POKE838,LE:POKE781,2:POKE782,0:POKE783,0:SYS65520:PRINT"LEVEL":POKE781,3:POKE782,2:POKE783,0:SYS65520:PRINTK$
  6. 180 K$="":INPUT"MAXIMUM POINTS GOAL";K$:IFK$=""THEN180
  7. 200 IFLEFT$(K$,1)<"1"ORLEFT$(K$,1)>"9"THEN180
  8. 210 O=VAL(K$):IFO>9999ORO<0THEN180
  9. 220 GOSUB8250:POKE836,INT(O/256):POKE837,O-256*INT(O/256):POKE781,15:POKE782,35:POKE783,0:SYS65520:PRINTK$:POKE831,INT(RND(TI)*2)+1
  10. 260 CLR:O=PEEK(836)*256+PEEK(837):LE=PEEK(838):GOSUB8250:PRINT"MIXING DOMINOES....":F=0:D$="":DIMZ$(28),U(28),Q(6),T(6),GB(56):DIMY$(28),X$(28),U$(21):X1=7:Y1=7:Z1=28:GB(1)=33239:GB(2)=33238:GB(3)=33236:GB(4)=33235:GB(5)=33233:GB(6)=33232
  11. 380 GB(7)=33230:GB(8)=33229:GB(9)=33227:GB(10)=33226:GB(11)=33224:GB(12)=33223:GB(13)=33221:GB(14)=33220:GB(15)=33218:GB(16)=33217:GB(17)=33215:GB(18)=33214:GB(19)=33294:GB(20)=33334:GB(21)=33336:GB(22)=33337:GB(23)=33339:GB(24)=33340
  12. 410 GB(25)=33342:GB(26)=33343:GB(27)=33345:GB(28)=33346:GB(29)=33348:GB(30)=33349:GB(31)=33351:GB(32)=33352:GB(33)=33354:GB(34)=33355:GB(35)=33357:GB(36)=33358:GB(37)=33360:GB(38)=33400:GB(39)=33480:GB(40)=33479:GB(41)=33477:GB(42)=33476
  13. 440 GB(43)=33474:GB(44)=33473:GB(45)=33471:GB(46)=33470:GB(47)=33468:GB(48)=33467:GB(49)=33465:GB(50)=33464:GB(51)=33462:GB(52)=33461:GB(53)=33459:GB(54)=33458:GB(55)=33456:GB(56)=33455:FORI=1TO56:POKEGB(I),32:POKEGB(I)+22528,1:NEXT:GOSUB8180:GOSUB8210:GOSUB8240
  14. 540 C=0:FORI=0TO6:B$=STR$(I):B$=RIGHT$(B$,1):FORJ=ITO6:C$=STR$(J):C$=RIGHT$(C$,1):C=C+1:Z$(C)=B$+C$:NEXTJ,I:FORI=1TO28:C=0:FORJ=1TO28:IFZ$(J)="77"THENGOTO720
  15. 690 C=C+1:Y$(C)=Z$(J):U(C)=J
  16. 720 NEXTJ:D=INT(RND(1)*C)+1:X$(I)=Y$(D):Z$(U(D))="77":NEXTI:FORI=1TO28:Z$(I)=X$(I):X$(I)="77":Y$(I)="77":NEXTI:C=0:FORI=1TO7
  17. 870 D=INT(RND(1)*28)+1:IFZ$(D)="77"THEN870
  18. 890 Y$(I)=Z$(D):Z$(D)="77":NEXTI:FORI=1TO7
  19. 960 D=INT(RND(1)*28)+1:IFZ$(D)="77"THEN960
  20. 980 X$(I)=Z$(D):Z$(D)="77":NEXTI:GOSUB5530:IFPEEK(831)=1THEN1280
  21. 1060 GOSUB3840:FORI=1TO7:IFLEFT$(X$(I),1)=S$ANDRIGHT$(X$(I),1)=S$THEN1220
  22. 1100 NEXTI:FORI=1TO7:IFLEFT$(X$(I),1)=RIGHT$(X$(I),1)THEN1220
  23. 1140 NEXTI:FORI=1TO7:IFLEFT$(X$(I),1)=S$ORRIGHT$(X$(I),1)=S$THEN1220
  24. 1180 NEXTI:I=INT(RND(1)*7)+1
  25. 1220 G$=LEFT$(X$(I),1):H$=RIGHT$(X$(I),1):IFG$=S$ORH$=S$THENT=T-1
  26. 1250 GOSUB8250:PRINT"MY MOVE: ";X$(I):D$=X$(I):GOSUB7400:GOSUB4940:X$(I)="77":GOSUB5270
  27. 1280 GOSUB4500:GOSUB2260:POKE198,0:GOSUB8250:INPUT"YOUR MOVE";A$:IFA$=""THEN1530
  28. 1350 B$=LEFT$(A$,1):G=0:IFB$<>"9"ANDB$<>"7"ANDB$<>"P"ANDB$<>"T"ANDB$<>"8"ANDB$<>"1"THENG=G+1
  29. 1370 IFB$<>"2"ANDB$<>"3"ANDB$<>"4"ANDB$<>"5"ANDB$<>"6"THENG=G+1
  30. 1380 IFG=2THEN1530
  31. 1390 IFB$="P"ANDZ1<>0THENGOSUB8250:PRINT"YOU CAN STILL TAKE, SNEAKY DEVIL.":GOTO1530
  32. 1400 IFB$="P"THENGOSUB2890
  33. 1410 IFF=1THENGOSUB8250:PRINT"YOU CAN PLAY FROM YOUR HAND.":F=0:GOTO1530
  34. 1420 IFB$="P"ANDF=0THEN1640
  35. 1430 IFB$="T"THEN2050
  36. 1440 IFLEN(A$)=3ORLEN(A$)=4THEN2980
  37. 1450 M=VAL(A$):IFM<1ORM>21THEN1530
  38. 1470 IFY$(M)="77"THEN1530
  39. 1480 IFPEEK(831)=1THEN2210
  40. 1490 IFLEFT$(Y$(M),1)=G$THENB$=G$:GOTO1550
  41. 1500 IFRIGHT$(Y$(M),1)=G$THENB$=G$:GOTO1590
  42. 1510 IFLEFT$(Y$(M),1)=H$THENB$=H$:GOTO1600
  43. 1520 IFRIGHT$(Y$(M),1)=H$THENB$=H$:GOTO1620
  44. 1530 GOSUB8260:GOSUB8250:PRINT"INVALID[146]":GOTO1280
  45. 1550 G$=RIGHT$(Y$(M),1)
  46. 1560 GOSUB4740:GOSUB5020:Y$(M)="77":GOSUB5400:GOSUB2260:IFY1=0THENPOKE831,1:GOTO2650
  47. 1580 GOTO1640
  48. 1590 G$=LEFT$(Y$(M),1):GOTO1560
  49. 1600 H$=RIGHT$(Y$(M),1):GOTO1560
  50. 1620 H$=LEFT$(Y$(M),1):GOTO1560
  51. 1640 ::GOTO4410
  52. 1670 IFZ1=0THEN4620
  53. 1680 IFT<=0THENGOSUB3840
  54. 1690 GOTO5100
  55. 1700 GOTO3500
  56. 1710 ::FORI=1TOX1:IFLEFT$(X$(I),1)=RIGHT$(X$(I),1)AND(LEFT$(X$(I),1)=G$ORLEFT$(X$(I),1)=H$)THEN3420
  57. 1760 NEXTI:GOTO4130
  58. 1780 ::GOSUB8250:PRINT"I AM TAKING..."
  59. 1820 IFZ1=0THEN1900
  60. 1830 X1=X1+1:X$(X1)=Z$(Z1):Z$(Z1)="77":Z1=Z1-1:GOSUB8110:Q1$=LEFT$(X$(X1),1):Q2$=RIGHT$(X$(X1),1):IFG$=Q1$ORG$=Q2$ORH$=Q1$ORH$=Q2$THEN1640
  61. 1890 GOTO1820
  62. 1900 GOSUB8250:PRINT"MY MOVE: PASS":GOSUB8260:IFB$="P"THEN2650
  63. 1930 GOTO1280
  64. 1940 G$=RIGHT$(X$(I),1):B$=LEFT$(X$(I),1):A$=G$
  65. 1950 GOSUB8250:PRINT"MY MOVE: ";X$(I):GOSUB8260:GOSUB4940:X$(I)="77":GOSUB5270:GOSUB4880:IFQ1$=S$ORQ2$=S$THENT=T-1
  66. 1970 IFX1=0THENPOKE831,2:GOTO2650
  67. 1980 GOTO1280
  68. 1990 G$=LEFT$(X$(I),1):B$=RIGHT$(X$(I),1):A$=G$:GOTO1950
  69. 2010 H$=LEFT$(X$(I),1):B$=RIGHT$(X$(I),1):A$=H$:GOTO1950
  70. 2030 H$=RIGHT$(X$(I),1):B$=LEFT$(X$(I),1):A$=H$:GOTO1950
  71. 2050 :
  72. 2080 IFZ1=0THEN2160
  73. 2090 Y1=Y1+1:Y$(Y1)=Z$(Z1):Z$(Z1)="77":Z1=Z1-1:GOSUB8110:Q1$=LEFT$(Y$(Y1),1):Q2$=RIGHT$(Y$(Y1),1):IFG$=Q1$ORG$=Q2$ORH$=Q1$ORH$=Q2$THEN1280
  74. 2150 GOTO2080
  75. 2160 GOSUB8250:PRINT"NO MORE TO TAKE.":GOSUB8260:GOTO1280
  76. 2210 G$=LEFT$(Y$(M),1):H$=RIGHT$(Y$(M),1):POKE831,2:D$=Y$(M):GOSUB5020:Y$(M)="77":GOSUB5400:GOTO1640
  77. 2260 ::GOSUB8180:IFY1=0THENRETURN
  78. 2310 Y2=Y1:IFY2>19THENY2=19
  79. 2330 FORJ=1TOY2:POKE33607+J*2,VAL(LEFT$(Y$(J),1))+76:POKE33647+J*2,VAL(RIGHT$(Y$(J),1))+76:NEXT:RETURN
  80. 2380 ::PRINT:N=(PEEK(834)*256+PEEK(835))+B:POKE835,((N/256)-INT(N/256))*256:POKE834,INT(N/256):POKE831,2:GOSUB8250:PRINT" I WIN! [146]":GOSUB8260:POKE829,(PEEK(829)+1):GOTO3130
  81. 2510 ::PRINT:POKE832,INT(L/256):L=(PEEK(832)*256+PEEK(833))+A:POKE833,((L/256)-INT(L/256))*256:POKE832,INT(L/256):POKE831,1:GOSUB8250:PRINT" YOU WIN. [146]":GOSUB8260:POKE828,(PEEK(828)+1):GOTO3130
  82. 2650 ::GOSUB4500:GOSUB8250:PRINT"TOTALING...":GOSUB8260:A=0:B=0:FORI=1TO21:IFY$(I)<>"77"THENA=VAL(LEFT$(Y$(I),1))+VAL(RIGHT$(Y$(I),1))+A
  83. 2750 IFX$(I)<>"77"THENB=VAL(LEFT$(X$(I),1))+VAL(RIGHT$(X$(I),1))+B
  84. 2760 NEXTI:GOSUB8250:PRINT"YOUR POINTS:"A" MY POINTS:"B:GOSUB8260:IFB<ATHENB=B+A:A=0:GOTO2380
  85. 2790 IFA<BTHENA=B+A:B=0:GOTO2510
  86. 2800 N=(PEEK(834)*256+PEEK(835))+B:POKE835,((N/256)-INT(N/256))*256:POKE834,INT(N/256):L=(PEEK(832)*256+PEEK(833))+A:POKE833,((L/256)-INT(L/256))*256:POKE832,INT(L/256):POKE830,(PEEK(830)+1):GOTO3130
  87. 2890 ::F=0:FORI=1TOY1:Q1$=LEFT$(Y$(I),1):Q2$=RIGHT$(Y$(I),1):IFQ1$=G$ORQ1$=H$ORQ2$=G$ORQ2$=H$THENF=1
  88. 2960 NEXT:RETURN
  89. 2980 ::FORI=1TO(LEN(A$)):IFMID$(A$,I,1)="P"THEN3050
  90. 3030 NEXTI:GOTO1450
  91. 3050 B$=MID$(A$,I+1,1):A$=LEFT$(A$,I-1):M=VAL(A$):A$="PR":IFM<1ORM>28THEN1530
  92. 3090 IFY$(M)="77"THEN1530
  93. 3100 IFB$=G$THEN1490
  94. 3110 IFB$=H$THEN1510
  95. 3120 GOTO1530
  96. 3130 ::A$=STR$(PEEK(832)*256+PEEK(833)):A$=RIGHT$(A$,LEN(A$)-1):POKE781,18:POKE782,35:POKE783,0:SYS65520:PRINTA$:A$=STR$(PEEK(828)):A$=RIGHT$(A$,LEN(A$)-1):POKE781,19:POKE782,35:POKE783,0:SYS65520:PRINTA$:A$=STR$(PEEK(834)*256+PEEK(835)):A$=RIGHT$(A$,LEN(A$)-1):POKE781,11:POKE782,35:POKE783,0:SYS65520:PRINTA$:A$=STR$(PEEK(829)):A$=RIGHT$(A$,LEN(A$)-1)
  97. 3230 POKE781,12:POKE782,35:POKE783,0:SYS65520:PRINTA$:A$=STR$(PEEK(830)):A$=RIGHT$(A$,LEN(A$)-1):POKE781,16:POKE782,35:POKE783,0:SYS65520:PRINT"="A$:IFL<OANDN<OTHEN3340
  98. 3270 PRINT:IFL>=OTHENGOSUB8250:PRINT" YOU ";:GOTO3290
  99. 3280 GOSUB8250:PRINT" I ";
  100. 3290 PRINT"HAVE WON ON POINTS. [146]":GOSUB8260:GOSUB8250:PRINT"ANOTHER CHALLENGE?"
  101. 3310 GETA$:IFA$=""THEN3310
  102. 3320 IFA$="N"THEN3380
  103. 3330 GOTO6870
  104. 3340 GOSUB8260:GOSUB8250:PRINT"WOULD YOU LIKE TO CONTINUE?"
  105. 3350 GETA$:IFA$=""THEN3350
  106. 3360 IFA$="N"THEN3380
  107. 3370 GOTO260
  108. 3380 POKE53272,(PEEK(53272)AND240)OR4:PRINT"[147]TO PLAY AGAIN, TYPE RUN AND":PRINT"HIT RETURN WHENEVER YOU'RE[145]":POKE53280,14:POKE53281,6:POKE646,14:END
  109. 3420 ::Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):IFQ1$=G$THEN1940
  110. 3470 IFQ1$=H$THEN2030
  111. 3480 IFQ2$=H$THEN2010
  112. 3490 GOTO1990
  113. 3500 ::FORI=1TOX1:Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):IFQ1$=G$ANDQ2$=S$THEN1940
  114. 3560 IFQ1$=H$ANDQ2$=S$THEN2030
  115. 3570 IFQ2$=G$ANDQ1$=S$THEN1990
  116. 3580 IFQ2$=H$ANDQ1$=S$THEN2010
  117. 3590 NEXT:GOTO4290
  118. 3610 ::IFS1$="7"THEN3720
  119. 3650 FORI=1TOX1:Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):IFQ1$=G$ANDQ2$=S1$THEN1940
  120. 3680 IFQ1$=H$ANDQ2$=S1$THEN2030
  121. 3690 IFQ2$=G$ANDQ1$=S1$THEN1990
  122. 3700 IFQ2$=H$ANDQ1$=S1$THEN2010
  123. 3710 NEXT
  124. 3720 ::IFS2$="7"THEN3720
  125. 3760 FORI=1TOX1:Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):IFQ1$=G$ANDQ2$=S2$THEN1940
  126. 3790 IFQ1$=H$ANDQ2$=S2$THEN2030
  127. 3800 IFQ2$=G$ANDQ1$=S2$THEN1990
  128. 3810 IFQ2$=H$ANDQ1$=S2$THEN2010
  129. 3820 NEXT:GOTO1710
  130. 3840 ::FORI=1TOX1:Q1=VAL(LEFT$(X$(I),1)):Q2=VAL(RIGHT$(X$(I),1)):IFQ1=Q2THEN3920
  131. 3910 T(Q1)=T(Q1)+1
  132. 3920 T(Q2)=T(Q2)+1:NEXT:C=0:B=0:A=0:Q2=7:Q3=7:FORI=0TO6:IFT(I)>CTHENQ1=I:C=T(I)
  133. 3970 NEXT:FORI=0TO6:IFI=Q1THEN4010
  134. 4000 IFT(I)>BTHENQ2=I:B=T(I)
  135. 4010 NEXT:FORI=0TO6:IFI=Q1ORI=Q2THEN4050
  136. 4040 IFT(I)>ATHENQ3=I:A=T(I)
  137. 4050 NEXT:S$=STR$(Q1):S$=RIGHT$(S$,1):T=C:S1$=STR$(Q2):S1$=RIGHT$(S1$,1):S2$=STR$(Q3):S2$=RIGHT$(S2$,1):RETURN
  138. 4130 ::A=0:F=0:FORI=1TOX1:Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):Q1=VAL(Q1$):Q2=VAL(Q2$):Q3=Q1+Q2:IFQ1$<>G$ANDQ1$<>H$ANDQ2$<>G$ANDQ2$<>H$THEN4240
  139. 4200 IFQ1$=G$ANDQ3>ATHENB=I:A=Q3:F=1
  140. 4210 IFQ1$=H$ANDQ3>ATHENB=I:A=Q3:F=1
  141. 4220 IFQ2$=G$ANDQ3>ATHENB=I:A=Q3:F=1
  142. 4230 IFQ2$=H$ANDQ3>ATHENB=I:A=Q3:F=1
  143. 4240 NEXT:I=B:IFF=0THEN1780
  144. 4270 F=0:GOTO3420
  145. 4290 ::IFG$<>S$ANDH$<>S$THEN3610
  146. 4330 FORI=1TOX1:Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):IFQ1$=G$ANDG$<>S$THEN1940
  147. 4360 IFQ1$=H$ANDH$<>S$THEN2030
  148. 4370 IFQ2$=G$ANDG$<>S$THEN1990
  149. 4380 IFQ2$=H$ANDH$<>S$THEN2010
  150. 4390 NEXT:GOTO3610
  151. 4410 ::IFLE=1THEN4130
  152. 4450 IFLE=2THEN1710
  153. 4460 IFLE=3THEN3500
  154. 4470 IFLE=4THEN5100
  155. 4480 IFLE=5THEN1680
  156. 4490 GOTO1670
  157. 4500 ::GOSUB8240:IFX1=0THENRETURN
  158. 4550 X2=X1:IFX2>19THENX2=19
  159. 4570 FORJ=1TOX2:POKE33007+J*2,76:POKE33047+J*2,76:NEXT:RETURN
  160. 4620 ::GOSUB3840:F=0:A=0:FORI=0TO6:IFT(I)<>0ANDT(I)+Q(I)=7THENA=I:F=1
  161. 4690 NEXT:IFF=0THEN5100
  162. 4710 F=0:S$=STR$(A):S$=RIGHT$(S$,1):GOTO3500
  163. 4740 ::IFA$<>"PR"THEN4830
  164. 4780 A$="":IFB$=LEFT$(D$,1)ANDB$=LEFT$(Y$(M),1)THEND$=RIGHT$(Y$(M),1)+B$+D$:GOTO4870
  165. 4800 IFB$=LEFT$(D$,1)ANDB$=RIGHT$(Y$(M),1)THEND$=Y$(M)+D$:GOTO4870
  166. 4810 IFB$=RIGHT$(D$,1)ANDB$=LEFT$(Y$(M),1)THEND$=D$+Y$(M):GOTO4870
  167. 4820 IFB$=RIGHT$(D$,1)ANDB$=RIGHT$(Y$(M),1)THEND$=D$+B$+LEFT$(Y$(M),1):GOTO4870
  168. 4830 IFLEFT$(Y$(M),1)=LEFT$(D$,1)THEND$=RIGHT$(Y$(M),1)+LEFT$(Y$(M),1)+D$:GOTO4870
  169. 4840 IFRIGHT$(Y$(M),1)=LEFT$(D$,1)THEND$=Y$(M)+D$:GOTO4870
  170. 4850 IFLEFT$(Y$(M),1)=RIGHT$(D$,1)THEND$=D$+Y$(M):GOTO4870
  171. 4860 IFRIGHT$(Y$(M),1)=RIGHT$(D$,1)THEND$=D$+RIGHT$(Y$(M),1)+LEFT$(Y$(M),1):GOTO4870
  172. 4870 GOSUB7400:RETURN
  173. 4880 ::IFB$=LEFT$(D$,1)THEND$=A$+B$+D$:GOTO4930
  174. 4920 IFB$=RIGHT$(D$,1)THEND$=D$+B$+A$:GOTO4930
  175. 4930 A$="":GOSUB7400:RETURN
  176. 4940 ::IFLEFT$(X$(I),1)=RIGHT$(X$(I),1)THEN5000
  177. 4990 Q=VAL(LEFT$(X$(I),1)):Q(Q)=Q(Q)+1
  178. 5000 Q=VAL(RIGHT$(X$(I),1)):Q(Q)=Q(Q)+1:RETURN
  179. 5020 ::IFLEFT$(Y$(M),1)=RIGHT$(Y$(M),1)THEN5080
  180. 5070 Q=VAL(LEFT$(Y$(M),1)):Q(Q)=Q(Q)+1
  181. 5080 Q=VAL(RIGHT$(Y$(M),1)):Q(Q)=Q(Q)+1:RETURN
  182. 5100 ::J=6
  183. 5160 C=0:FORI=1TOX1:IFX$(I)="77"THEN5240
  184. 5170 Q1$=LEFT$(X$(I),1):Q2$=RIGHT$(X$(I),1):Q1=VAL(Q1$):Q2=VAL(Q2$):IF(Q1$=G$ANDQ2$=H$)OR(Q2$=G$ANDQ1$=H$)THENGOTO5200
  185. 5190 C=C+1:GOTO5240
  186. 5200 IF(Q1$=G$)AND(Q(Q1)=J)AND(Q2$=H$)AND(Q(Q2)<J)AND(X1<=(Y1+Z1))THEN2010
  187. 5210 IF(Q1$=H$)AND(Q(Q1)=J)AND(Q2$=G$)AND(Q(Q2)<J)AND(X1<=(Y1+Z1))THEN1990
  188. 5220 IF(Q2$=G$)AND(Q(Q2)=J)AND(Q1$=H$)AND(Q(Q1)<J)AND(X1<=(Y1+Z1))THEN2030
  189. 5230 IF(Q2$=H$)AND(Q(Q2)=J)AND(Q1$=G$)AND(Q(Q1)<J)AND(X1<=(Y1+Z1))THEN1940
  190. 5240 NEXTI:IFC=X1THEN5260
  191. 5250 IFJ>1THENJ=J-1:GOTO5160
  192. 5260 GOTO1700
  193. 5270 ::C=1:FORJ=1TOX1:IFX$(J)<>"77"THENU$(C)=X$(J):C=C+1:X$(J)="77"
  194. 5330 NEXT:C=C-1:IFC=0THEN5380
  195. 5350 FORJ=1TOC:X$(J)=U$(J):NEXT
  196. 5380 X1=C:RETURN
  197. 5400 ::C=1:FORJ=1TOY1:IFY$(J)<>"77"THENU$(C)=Y$(J):C=C+1:Y$(J)="77"
  198. 5460 NEXT:C=C-1:IFC=0THEN5510
  199. 5480 FORJ=1TOC:Y$(J)=U$(J):NEXT
  200. 5510 Y1=C:RETURN
  201. 5530 ::C=1:FORJ=1TOZ1:IFZ$(J)<>"77"THENU$(C)=Z$(J):C=C+1:Z$(J)="77"
  202. 5590 NEXT:C=C-1:IFC=0THEN5640
  203. 5610 FORJ=1TOC:Z$(J)=U$(J):NEXT
  204. 5640 Z1=C:GOSUB8110:RETURN
  205. 5670 ::POKE55,0:POKE56,128:CLR:POKE56576,PEEK(56576)AND253:POKE53272,4:POKE648,128:GOSUB7480:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:FORI=0TO255:FORJ=0TO7:POKE34816+I*8+J,PEEK(53248+I*8+J):NEXTJ,I:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)OR2:FORJ=0TO7:READN:POKE34816+(8*49)+J,N:NEXTJ:FORI=64TO90:FORJ=0TO7:READN
  206. 5990 POKE34816+(8*I)+J,N:NEXTJ,I:DATA6,6,14,6,6,6,6,0:DATA0,0,0,0,0,255,255,0:DATA0,0,0,0,0,0,192,192:DATA192,192,0,0,0,0,0,0:DATA255,255,0,0,0,192,192,192:DATA255,255,0,0,0,255,255,0:DATA7,7,0,0,0,255,255,0:DATA0,0,0,0,0,0,255,255:DATA0,0,0,0,0,7,7,6:DATA192,192,192,192,192,199,199,198
  207. 6230 DATA0,0,0,0,0,199,199,198:DATA192,192,192,192,192,192,192,192:DATA7,7,0,0,0,7,7,6:DATA254,254,254,254,254,254,254,0:DATA254,254,254,206,254,254,254,0:DATA254,158,254,254,254,242,254,0:DATA254,158,254,206,254,242,254,0:DATA254,146,254,254,254,146,254,0
  208. 6390 DATA254,146,254,206,254,146,254,0:DATA254,146,254,146,254,146,254,0:DATA199,199,0,0,0,0,0,0:DATA198,198,6,6,6,6,6,6:DATA198,198,198,198,198,198,198,198:DATA6,6,6,6,6,6,6,6:DATA7,7,0,0,0,0,0,0:DATA255,255,0,0,0,0,0,0:DATA0,0,0,0,0,192,192,192:DATA192,192,0,0,0,192,192,192
  209. 6600 DATA254,198,146,146,146,198,254,0:DATA254,198,134,230,230,130,254,0:DATA254,130,242,130,158,130,254,0:DATA254,130,242,194,242,130,254,0:DATA254,146,146,130,242,242,254,0:DATA254,130,158,130,242,130,254,0:DATA254,130,158,130,146,130,254,0
  210. 6730 PRINT"[145]G[146]RAPHIC OR N[146]UMERAL DOMINOES?"
  211. 6750 GETK$:IFK$=""THEN6750
  212. 6760 IFK$="G"THEN6840
  213. 6770 IFK$="N"THEN6790
  214. 6780 GOTO6750
  215. 6790 PRINT"[145]INSTALLING NUMERIC DOMINOES......":FORI=76TO82:FORJ=0TO7:READN:POKE34816+(8*I)+J,N:NEXTJ,I
  216. 6840 PRINT:PRINT"WOULD YOU LIKE INSTRUCTIONS?[145]"
  217. 6850 GETK$:IFK$=""THEN6850
  218. 6860 IFK$="Y"THEN7640
  219. 6870 PRINT"[147]DOMINOES!":POKE53280,6:POKE53281,6:PRINT"[147]DOMINOES! V1.00":PRINT"[144]      [199][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][217]":PRINT"      [214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]":PRINT"      [214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]":PRINT"      [215][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][194]"
  220. 7000 PRINT"[199][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][217]":PRINT"[214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]":PRINT"[214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]":PRINT"[215][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][194]":PRINT"[175][175][175] [144][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][193]"
  221. 7050 PRINT"[180]D[170][144] [202][199][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][217] [202]":PRINT"[180]O[170][144] [202][214]  [213]  [213]  [213]  [213]  [213]  [213]  [213]  [213]  [202] [202]":PRINT"[180]M[170][144] [202][203][196][195][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][194] [202]":PRINT"[180]I[170][144] [202][214] [200][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][217][202]":PRINT"[180]N[170][144] [202][214] [213]  [213]  [213]  [213]  [213]  [213]  [213]  [213]  [213] [202][202]":PRINT"[180]O[170][144] [202][215][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][212] [202][202]"
  222. 7110 PRINT"[180]E[170][144] [202] [199][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][192][192][201][197][196][218][202]":PRINT"[180]S[170][144] [202] [214]  [213]  [213]  [213]  [213]  [213]  [213]  [213]  [213]  [202][202]":PRINT"[180]![170][144] [202] [215][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][211][216][216][194][202]":PRINT"[183][183][183][144] [216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][194]":PRINT"[199][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][201][192][217]":PRINT"[214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]"
  223. 7170 PRINT"[214] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [213] [202]":PRINT"[215][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][211][216][194]":PRINT" 1 2 3 4 5 6 7 8 910111213141516171819";:J=22528:FORI=32855TO32881STEP2:POKEI,76:NEXT:FORI=32895TO32921STEP2:POKEI,76:NEXT:FORI=33609TO33645STEP2:POKEI,32:POKEI+J,1:NEXT:FORI=33649TO33685STEP2:POKEI,32:POKEI+J,1:NEXT
  224. 7310 POKE781,9:POKE782,35:POKE783,0:SYS65520:PRINT"PTS":POKE781,10:POKE782,35:POKE783,0:SYS65520:PRINT"ME":POKE781,11:POKE782,35:POKE783,0:SYS65520:PRINT"0":POKE781,12:POKE782,35:POKE783,0:SYS65520:PRINT"0":POKE781,14:POKE782,35:POKE783,0:SYS65520:PRINT"MAX":POKE781,17:POKE782,35:POKE783,0:SYS65520:PRINT"YOU"
  225. 7370 POKE781,18:POKE782,35:POKE783,0:SYS65520:PRINT"0":POKE781,19:POKE782,35:POKE783,0:SYS65520:PRINT"0":GOTO110
  226. 7400 ::IFD$=""THENRETURN
  227. 7440 FORJ=1TOLEN(D$):POKEGB(J),VAL(MID$(D$,J,1))+76:NEXT:RETURN
  228. 7480 ::POKE53280,6:POKE53281,6:POKE646,1:PRINT"[147]            DEZSOFT PRESENTS           ":PRINT" [146]                                      ":PRINT" [146]  [207][183][205] [206][183][205] [207][205][206][208] [183][207] [207][205]  [180][206][183][205] [207][183][183] [206][183][205]  [146]  ":PRINT" [146]  [180] [170] [180] [170] [180][170][180][170]  [180] [180] [205] [180][180] [170] [204][175]  [180]    [146]  "
  229. 7560 PRINT" [146]  [204][175][206] [205][175][206] [180]  [170] [175][204] [180]  [205][180][205][175][206] [204][175][175] [205][175]   [146]  ":PRINT" [146]  [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]    [205]  [146]  ":PRINT" [146]          [180][170] [206][180]   [206][205]         [146]    [170]    ":PRINT" [146]          [205][206] [175][204] [146]  [205][206]         [146]  [205][175][206]  [146]  "
  230. 7600 PRINT" [146]  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]         ":PRINT"            (C)1984 DEZSOFT            ":PRINT"     [144]WRITTEN BY ALBERT HERNANDEZ":PRINT"             INITIALIZING...":RETURN
  231. 7640 PRINT:PRINT"[145][145][145]DOMINOES ARE PLAYED WITH 28 BLOCKS CON-":PRINT"SISTING OF TWO ENDS: [206][205]. EACH PLAYER IS":PRINT"ASSIGNED SEVEN DOMINOES. THE OBJECT IS":PRINT"TO GET RID OF ALL YOUR DOMINOES BEFORE":PRINT"THE COMPUTER DOES. THE POINTS REMAINING"
  232. 7690 PRINT"IN HAND WILL BE COUNTED TOWARDS THE":PRINT"MAXIMUM POINTS GOAL, WHICH YOU MAY SET":PRINT"FROM 1 TO 9999. THE FIRST PLAYER TO":PRINT"REACH THE MAXIMUM POINTS GOAL WINS.":PRINT:PRINT"PRESS ANY KEY TO CONTINUE.":GOSUB8270:PRINT"[145][145][145][145][145][145][145][145][145][145][145]";:FORJ=1TO10
  233. 7760 PRINT"                                       ":NEXT:PRINT"[145][145][145][145][145][145][145][145][145][145]PLAY CONSISTS OF PLACING A DOMINOE ON":PRINT"THE BOARD WHICH MATCHES THE ENDS. FOR":PRINT"EXAMPLE, IF THE ENDS ARE [206] AND [208], THEN":PRINT"YOU MUST PLAY A DOMINOE WHICH HAS A 2"
  234. 7810 PRINT"OR A 4 AS ONE OF ITS ENDS. IF YOU DO":PRINT"NOT HAVE A MATCH, YOU MAY TAKE FROM THE":PRINT"REMAINING DOMINOES BY ENTERING EITHER":PRINT"'TAKE' OR 'T'. IF THERE ARE NO MORE":PRINT"DOMINOES TO TAKE AND YOU STILL DO NOT":GOSUB8270:PRINT"[145][145][145][145][145][145][145][145][145][145]";:FORJ=1TO10
  235. 7880 PRINT"                                       ":NEXT:PRINT"[145][145][145][145][145][145][145][145][145]HAVE A MATCH, THEN YOU MUST ENTER":PRINT"EITHER 'PASS' OR 'P' AND MISS A TURN.":PRINT"IF YOU HAVE A DOMINOE WHICH MATCHES TWO":PRINT"DIFFERENT ENDS ON THE BOARD, YOU MAY"
  236. 7930 PRINT"ASSIGN A PRIORITY TO PLACE A PARTICULAR":PRINT"END BY ENTERING A 'P' BETWEEN THE":PRINT"NUMBER OF THE DOMINOE YOU WISH TO PLAY":PRINT"AND THE END TO WHICH YOU WISH TO ASSIGN":PRINT"THE PRIORITY. FOR EXAMPLE, IF THE":GOSUB8270:PRINT"[145][145][145][145][145][145][145][145][145][145]";:FORJ=1TO10
  237. 8000 PRINT"                                       ":NEXT:PRINT"[145][145][145][145][145][145][145][145][145]BOARD IS: [206][210][210][209][209][207], AND YOUR DOMINOE #1":PRINT"IS [206][207], YOU MAY ENTER '1P3' TO ASSIGN A":PRINT"PRIORITY T0 [207]. THE BOARD WILL THEN LOOK":PRINT"LIKE THIS: [206][210][210][209][209][207][207][206].":PRINT"  THERE ARE SIX LEVELS OF PLAY, WITH"
  238. 8060 PRINT"LEVEL 6 BEING THE MOST DIFFICULT.":PRINT:PRINT:PRINT:PRINT:PRINT"PRESS ANY KEY TO BEGIN, AND GOOD LUCK!"
  239. 8080 GETK$:IFK$=""THEN8080
  240. 8090 GOTO6870
  241. 8100 END
  242. 8110 ::GOSUB8210:IFZ1=0THENRETURN
  243. 8140 FORJ=1TOZ1:POKE32853+J*2,76:POKE32893+J*2,76:NEXT:RETURN
  244. 8180 FORJ=1TO19:POKE33607+J*2,32:POKE33647+J*2,32:NEXT:RETURN
  245. 8210 FORJ=1TO14:POKE32853+J*2,32:POKE32893+J*2,32:NEXT:RETURN
  246. 8240 FORJ=1TO19:POKE33007+J*2,32:POKE33047+J*2,32:NEXT:RETURN
  247. 8250 PRINT"                                      ":RETURN
  248. 8260 FORJ=1TO2000:NEXT:RETURN
  249. 8270 GETK$:IFK$=""THEN8270
  250. 8280 RETURN:FORI=64TO90:POKE32704+I,I:NEXT:END:POKE53272,(PEEK(53272)AND240)OR2:END:POKE53272,(PEEK(53272)AND240)OR4:END
  251.